home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n09.arc / SPLIT.BAS < prev    next >
BASIC Source File  |  1989-04-26  |  9KB  |  123 lines
  1. 100 REM - BASIC PROGRAM TO CREATE SPLIT.COM   
  2. 110 CLS:PRINT "Creating SPLIT.COM   ": OPEN "SPLIT.COM   " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   104
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   104 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "SPLIT.COM    created successfully": SYSTEM
  17. 260 PRINT: PRINT "SPLIT.COM    is not valid!": END
  18. 270 DATA E9, AD,  1,  0,  0,  0, 3A, 5C, 20, 20, 20, 20, 20, 20, 20, 20,   32D
  19. 280 DATA 20, 20, 20, 20,  0,  0,  0, 30,  1,  0,  0, 2E,  0,  0,  0,  0,    DF
  20. 290 DATA  0, 53, 50, 4C, 49, 54, 20, 20, 20, 31, 2E, 30, 20, 2D, 20, 28,   310
  21. 300 DATA 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   475
  22. 310 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,   5B7
  23. 320 DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 42,   569
  24. 330 DATA 6F, 62, 20, 46, 6C, 61, 6E, 64, 65, 72, 73, 20, 26, 20, 4D, 69,   53C
  25. 340 DATA 63, 68, 61, 65, 6C, 20, 48, 6F, 6C, 6D, 65, 73,  A,  D,  A, 24,   4CA
  26. 350 DATA 46, 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 24, 45,   596
  27. 360 DATA 72, 72, 6F, 72, 20, 6F, 70, 65, 6E, 69, 6E, 67, 20, 6F, 75, 74,   64D
  28. 370 DATA 70, 75, 74, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75, 67, 68, 20, 72,   5E6
  29. 380 DATA 6F, 6F, 6D, 2C, 20, 74, 72, 79, 20, 61, 6E, 6F, 74, 68, 65, 72,   607
  30. 390 DATA 24, 57, 72, 6F, 6E, 67, 20, 72, 65, 73, 74, 6F, 72, 65, 20, 64,   5D9
  31. 400 DATA 69, 73, 6B, 2C, 20, 69, 6E, 73, 65, 72, 74, 20, 6E, 75, 6D, 62,   5FA
  32. 410 DATA 65, 72, 20, 58, 58, 24, 4D, 75, 73, 74, 20, 62, 65, 20, 72, 65,   552
  33. 420 DATA 6D, 6F, 76, 61, 62, 6C, 65, 20, 6D, 65, 64, 69, 61, 24, 45, 72,   5E1
  34. 430 DATA 72, 6F, 72, 20, 72, 65, 61, 64, 69, 6E, 67, 20, 69, 6E, 70, 75,   629
  35. 440 DATA 74, 24, 45, 72, 72, 6F, 72, 20, 77, 72, 69, 74, 69, 6E, 67, 20,   5E6
  36. 450 DATA 6F, 75, 74, 70, 75, 74, 24, 46, 69, 6C, 65, 20, 65, 78, 69, 73,   62E
  37. 460 DATA 74, 73, 24, 49, 6E, 73, 65, 72, 74, 20, 23, 58, 58, 24, 2C, 20,   4E3
  38. 470 DATA 50, 72, 65, 73, 73, 20, 61, 6E, 79, 20, 6B, 65, 79, 20, 2E, 2E,   55A
  39. 480 DATA  7,  D,  A, 24,  D,  A, 66, 6F, 72, 6D, 61, 74, 3A,  9, 24, 55,   39E
  40. 490 DATA 4E, 53, 50, 4C, 49, 54, 20, 20, 64, 3A, 20, 20, 64, 3A, 5B, 5C,   44D
  41. 500 DATA 70, 61, 74, 68, 5D,  D,  A, 24, 52, 65, 73, 74, 6F, 72, 69, 6E,   59B
  42. 510 DATA 67, 3A, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,  D,   24E
  43. 520 DATA  A, 24,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    2E
  44. 530 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  45. 540 DATA 80, 3E, 1A,  1,  0, 75,  E, E8, 1D,  0, E8, 62,  1, E8, 9A,  2,   530
  46. 550 DATA E8, C7,  2, EB,  C, E8,  F,  0, E8, 54,  1, E8, 12,  0, E8, 6B,   729
  47. 560 DATA  0, BA, 7F,  1, E8,  2,  2, FC, BA, 21,  1, B4,  9, CD, 21, C3,   66C
  48. 570 DATA BF, 75,  7, 8B, 36,  3,  1, A4, 80, 3C,  0, 75, FA, 80, 7D, FF,   6CB
  49. 580 DATA 5C, 74,  9, 80, 7D, FF, 3A, 74,  3, B0, 5C, AA, BE, 9C,  2, BB,   753
  50. 590 DATA 83,  2, AC, AA,  A, C0, 74,  5, 88,  7, 43, EB, F5, B4, 4E, BA,   78C
  51. 600 DATA 75,  7, B9, FF,  0, CD, 21, 72,  6, BA, 27,  2, E8, BA,  1, B4,   6D4
  52. 610 DATA 3C, 8A,  E, 93,  2, 32, ED, CD, 21, 73,  6, BA, 8F,  1, E8, A8,   6C9
  53. 620 DATA  1, A3, 1F,  1, BA, 78,  2, B4,  9, CD, 21, C3, E8, A5,  0, BA,   6AD
  54. 630 DATA  5,  1, B8,  0, 3D, CD, 21, 73,  8, BA, C1,  1, E8, B9,  0, EB,   66C
  55. 640 DATA EE, A3, 1D,  1, 8B, D8, B4, 3F, B9, 1E,  0, BA, BA,  7, CD, 21,   745
  56. 650 DATA 72, 2A, 8B, F2, BF, 92,  2, A4, B9, 1D,  0, F3, A6, 74,  C, B4,   7B3
  57. 660 DATA 3E, CD, 21, C7,  6, 1D,  1,  0,  0, EB, CE, B4, 3F, 8B, 1E, 1D,   589
  58. 670 DATA  1, B9,  0, 80, 90, BA, BA,  7, CD, 21, 73,  6, BA, FE,  1, E8,   74D
  59. 680 DATA 47,  1, 8B, C8, E3, 22, B4, 40, 8B, 1E, 1F,  1, CD, 21, 72,  9,   5C6
  60. 690 DATA 3B, C1, 74, D7, BF, A4,  1, EB,  3, BF, 12,  2, B4, 41, BA, 75,   790
  61. 700 DATA  7, CD, 21, 8B, D7, E8, 21,  1, B4, 3E, CD, 21, C7,  6, 1D,  1,   62C
  62. 710 DATA  0,  0, 80, 3E, 92,  2,  0, 75,  9, BA, 33,  2, E8, 39,  0, E9,   4C9
  63. 720 DATA 6A, FF, 8B, 16, 96,  2, 8B,  E, 94,  2, 8B, 1E, 1F,  1, B8,  1,   553
  64. 730 DATA 57, CD, 21, C3, A1, 18,  1, 50, B3,  A, F6, F3,  D, 30, 30, 8B,   6B0
  65. 740 DATA 1E, 15,  1, 89,  7, A3, E3,  1, 58, 40, A3, 18,  1, B3,  A, F6,   552
  66. 750 DATA F3,  D, 30, 30, A3, 3B,  2, C3, B4,  9, CD, 21, BA, 3E,  2, CD,   675
  67. 760 DATA 21, B8,  8,  C, CD, 21,  A, C0, 75,  4, B4,  8, CD, 21, C3, E8,   673
  68. 770 DATA 9A,  0, BE, 81,  0, AC, 3C,  D, 74, 18, 3C, 20, 76, F7, E8, 48,   653
  69. 780 DATA  0, 72, 2F, AC, 3C,  D, 74,  A, 3C, 20, 77, F7, C6, 44, FF,  0,   5E7
  70. 790 DATA EB, E3, C6, 44, FF,  0, 83, 3E,  3,  1,  0, 75,  D, 80, 3E, 1A,   5F6
  71. 800 DATA  1,  0, 74,  E, C7,  6,  3,  1, 1B,  1, 80, 3E,  5,  1,  0, 74,   2A8
  72. 810 DATA  1, C3, BA, 54,  2, B4,  9, CD, 21, BA, 5F,  2, 80, 3E, 1A,  1,   573
  73. 820 DATA  0, 75,  3, BA, FA,  4, E8, 60,  0, 8D, 5C, FF, 80, 3E, 1A,  1,   639
  74. 830 DATA  0, 74,  7, 80, 3E,  5,  1,  0, 74, 16, 83, 3E,  3,  1,  0, 75,   303
  75. 840 DATA  6, 89, 1E,  3,  1, EB, 23, 80, 3E,  5,  1,  0, 74,  2, F9, C3,   4B5
  76. 850 DATA A2,  5,  1, A2, 4B,  5, 8A, D8, 80, EB, 40, B8,  8, 44, CD, 21,   699
  77. 860 DATA  A, C0, 74,  6, BA, E6,  1, E8, 1F,  0, F8, C3, 56, 57, BE, 81,   793
  78. 870 DATA  0, 8B, FE, FC, AC, 3C,  D, 74,  D, 3C, 61, 72,  6, 3C, 7A, 77,   63D
  79. 880 DATA  2, 2C, 20, AA, EB, EE, 5F, 5E, C3, B4,  9, CD, 21, 8B, 1E, 1D,   6C2
  80. 890 DATA  1,  B, DB, 74,  4, B4, 3E, CD, 21, 8B, 1E, 1F,  1,  B, DB, 74,   562
  81. 900 DATA  4, B4, 3E, CD, 21, B8,  0, 4C, CD, 21, 53, 50, 4C, 49, 54, 20,   582
  82. 910 DATA 20, 20, 20, 20, 5B, 64, 3A, 5C, 70, 61, 74, 68, 5C, 5D, 66, 69,   50A
  83. 920 DATA 6C, 65, 6E, 61, 6D, 65, 5B, 2E, 65, 78, 74, 5D, 20, 20, 64, 3A,   587
  84. 930 DATA  D,  A,  A, 24, 49, 6E, 70, 75, 74, 20, 66, 69, 6C, 65, 20, 65,   49A
  85. 940 DATA 6D, 70, 74, 79,  D,  A, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 77,   574
  86. 950 DATA 6F, 6E, 27, 74, 20, 66, 69, 74,  D,  A, 24, 78, 3A, 5C, 55, 4E,   4C7
  87. 960 DATA 53, 50, 4C, 49, 54, 2E, 43, 4F, 4D,  0, 8B, 16,  3,  1, B8,  0,   3F6
  88. 970 DATA 3D, CD, 21, 72,  F, A3, 1D,  1, B4, 4E, 8B, 16,  3,  1, 33, C9,   510
  89. 980 DATA CD, 21, 73,  6, BA, 80,  1, E8, 5F, FF, A1, 9A,  0,  B,  6, 9C,   6D0
  90. 990 DATA  0, 75,  6, BA, 24,  5, E8, 50, FF, C3, E8, 1F,  0, B4, 3F, 8B,   6DD
  91. 1000 DATA 1E, 1D,  1, B9,  0, 80, 90, BA, BA,  7, CD, 21, 73,  6, BA, FE,   69F
  92. 1010 DATA  1, E8, 35, FF, E8, B1,  0, 72,  2, EB, E2, C3, B4, 2A, CD, 21,   886
  93. 1020 DATA 89,  E, A8,  2, 89, 16, AA,  2, B4, 2C, CD, 21, 89,  E, AC,  2,   59F
  94. 1030 DATA 89, 16, AE,  2, BE, 95,  0, BF, 93,  2, B9, 15,  0, F3, A4, BF,   71A
  95. 1040 DATA 21,  1, BE, 4E,  5, B9,  7,  0, F3, A4, BE, 9E,  0, BF,  8,  1,   5AE
  96. 1050 DATA B9,  8,  0, AC, 3C, 2E, 74,  9,  A, C0, 74,  3, AA, E2, F4, B0,   6C5
  97. 1060 DATA 2E, AA, 89, 3E, 15,  1, 80, 7C, FF, 2E, 75,  4, AC, A2, 17,  1,   5BD
  98. 1070 DATA C6,  6, 1A,  1,  1, A0, 17,  1, 8B, 3E, 15,  1, AA, 89, 3E, 15,   405
  99. 1080 DATA  1, BA, 4B,  5, E8,  9,  1, FF, 36,  5,  1, FF, 36,  3,  1, C6,   537
  100. 1090 DATA  6,  5,  1,  0, C7,  6,  3,  1,  0,  0, B4, 40, B9, FA,  4, BA,   442
  101. 1100 DATA  0,  1, 2B, CA, CD, 21, 8F,  6,  3,  1, 8F,  6,  5,  1, 72,  4,   38E
  102. 1110 DATA 3B, C1, 74,  F, B4, 3E, CD, 21, E8, 22,  1, BA, 37,  5, E8, B7,   6FF
  103. 1120 DATA FD, EB, BE, B4, 3E, CD, 21, C3, 8B, 1E, 1F,  1, 8B, C8, E3, 71,   8B9
  104. 1130 DATA BA, BA,  7,  B, DB, 75, 3F, 51, 52, E8, 78, FD, BA,  5,  1, E8,   7BD
  105. 1140 DATA AE,  0, 89, 1E, 1F,  1, B9, 1E,  0, E8, 7D,  0, B4, 40, BA, 92,   5F1
  106. 1150 DATA  2, CD, 21, 73,  6, BA, 12,  2, E8, 4E, FE, 3B, C1, 74, 15, B4,   6A4
  107. 1160 DATA 3E, CD, 21, C7,  6, 1F,  1,  0,  0, E8, D1,  0, BA, A4,  1, E8,   619
  108. 1170 DATA 66, FD, EB, C8, 5A, 59, E8, 50,  0, B4, 40, CD, 21, 73,  6, BA,   816
  109. 1180 DATA 12,  2, E8, 24, FE,  3, D0, 8B, CF, E3, 14, 52, B4, 3E, CD, 21,   774
  110. 1190 DATA C7,  6, 1F,  1,  0,  0, BA, 33,  2, E8, 3C, FD, 5A, EB, 98, F8,   6D2
  111. 1200 DATA C3,  B, DB, 74, 22, B8,  0, 42, 33, C9, 33, D2, CD, 21, C6,  6,   6F4
  112. 1210 DATA 92,  2,  1, B4, 40, B9,  1,  0, BA, 92,  2, CD, 21, B4, 3E, CD,   63E
  113. 1220 DATA 21, C7,  6, 1F,  1,  0,  0, F9, C3, 52, A1, B6,  7, 8B, 16, B8,   5D3
  114. 1230 DATA  7, BF,  0,  0,  B, D2, 75,  A, 3B, C8, 76,  6, 8B, F9, 2B, F8,   648
  115. 1240 DATA 8B, C8, 2B, C1, 83, DA,  0, A3, B6,  7, 89, 16, B8,  7, 5A, C3,   777
  116. 1250 DATA 8B, EA, B4, 36, 8A, 16,  5,  1, 80, EA, 40, CD, 21, 3D, FF, FF,   7D8
  117. 1260 DATA 74,  4,  B, DB, 75,  8, BA, A4,  1, E8, CC, FC, EB, E4, F7, E3,   993
  118. 1270 DATA F7, E1, A3, B6,  7, 89, 16, B8,  7, B4, 4E, B9, FF,  0, 8B, D5,   8B0
  119. 1280 DATA CD, 21, 72,  8, BA, 27,  2, E8, AE, FC, EB, C6, B4, 3C, 33, C9,   87A
  120. 1290 DATA CD, 21, 73,  6, BA, 8F,  1, E8, 6F, FD, 8B, D8, C3, B4, 41, BA,   8DA
  121. 1300 DATA  5,  1, CD, 21, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   1B7
  122. 1310 DATA 154987
  123.